データが入力されている範囲の最終行と最終列を調べる方法を分けて説明します。

構文は以下の通りです。

解説

Cells(Rows.Count, 1)は、セルの範囲を指定しています。Rows.Countは行数の最大値を表す特殊な定数です。1は列番号を示しています。この部分は、最後の行の最初のセル（A列）を指定しています。End(xlUp)は、指定されたセルから上に向かって非空のセルを探すメソッドです。xlUpはExcelの定数で、上方向を示します。つまり、最終行から上に向かって非空のセルを探しています。Rowは、End(xlUp)が見つけた非空セルの行番号を取得するためのプロパティです。これによって、最終行の行番号が取得されます。

構文は以下の通りです。

解説

Cells(1, Columns.Count)は、セルの範囲を指定しています。1は行番号を示しています。Columns.Countは列数の最大値を表す特殊な定数です。この部分は、最上段のセル（1行目）の最後の列を指定しています。End(xlToLeft)は、指定されたセルから左に向かって非空のセルを探すメソッドです。xlToLeftはExcelの定数で、左方向を示します。つまり、最終列から左に向かって非空のセルを探しています。Columnは、End(xlToLeft)が見つけた非空セルの列番号を取得するためのプロパティです。これによって、最終列の列番号が取得されます。

具体的な使い方を幾つか紹介します。

例1: 最終行と最終列の情報を表示する

以下のサンプルコードは、最終行と最終列の情報をメッセージボックスで表示する例です。

このマクロを実行すると、最終行と最終列の情報がメッセージボックスに表示されます。

例2: 最終行までのデータを処理する

以下のサンプルコードは、最終行までのデータを1行ずつ処理する例です。この例では、各行のA列に書かれたデータをメッセージボックスで表示しています。

このマクロを実行すると、最終行までの各行のデータが順にメッセージボックスに表示されます。

例3: 最終列までのデータを処理する

以下のサンプルコードは、最終列までのデータを1列ずつ処理する例です。この例では、各列の1行目に書かれたデータをメッセージボックスで表示しています。

このマクロを実行すると、最終列までの各列のデータが順にメッセージボックスに表示されます。

以下に、プログラミング例を幾つか紹介します。

例1: 最終行までの合計を計算する

以下のサンプルコードは、A列にある数値データを最終行まで合計する例です。

このマクロを実行すると、A列の数値データの合計がメッセージボックスに表示されます。

例2: 最終行までの平均を計算する

以下のサンプルコードは、B列にある数値データを最終行までの平均を計算する例です。

このマクロを実行すると、B列の数値データの平均がメッセージボックスに表示されます。ただし、データがない場合は「データがありません」と表示されます。

例3: 最終列までのデータを別のシートにコピーする

以下のサンプルコードは、現在のシートの最終列までのデータを別のシートにコピーする例です。

このマクロを実行すると、現在のシートの最終列までのデータが新しいシートにコピーされます。

最終行を調べる際には、Cells(Rows.Count, 1).End(xlUp).Row を使用し、最終列を調べる際には、Cells(1, Columns.Count).End(xlToLeft).Column を使用します。これらの構文を使う事で、データの自動処理を効率化することができます。是非活用してください。